home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Readers / Gui4Cli / Docs / Tutorials / Gauge.gc < prev    next >
Text File  |  1997-12-02  |  987b  |  51 lines
  1. G4C
  2.  
  3. ; example of all types of Gauges
  4.  
  5.  
  6. winbig -1 -1 250 150 Gauge    ; our window
  7. wintype 11110001        ; and what it should look like
  8. varpath ''            ; we use our private variables only
  9.  
  10. xonload
  11. val = 50                        ; set the starting value of the Gauges
  12. guiopen Gauge.gc        ; open our gui
  13.  
  14. xonclose
  15. guiquit Gauge.gc
  16.  
  17.  
  18. ; ----------------  6 types of Gauges with various borders & fill colors
  19.  
  20.  
  21. Gauge 10 10 230 15 in button 3 0 50
  22. gadid 1
  23.  
  24. Gauge 10 30 230 15 out button  3 0 50
  25. gadid 2
  26.  
  27. Gauge 10 50 230 15 in ridge 2 0 50
  28. gadid 3
  29.  
  30. Gauge 10 70 230 15 out ridge 2 0 50
  31. gadid 4
  32.  
  33. Gauge 10 90 230 15 in icondrop 2 1 50
  34. gadid 5
  35.  
  36. Gauge 10 110 230 15 out icondrop 2 1 50
  37. gadid 6
  38.  
  39.  
  40. ; --------------- a slider to play around with the values
  41. ; whenever the slider "happens", we update the gauges accordingly.
  42.  
  43. xHSlider  10 130 190 15 '' val 0 100 50 %ld%%
  44. update  Gauge.gc 1 $val
  45. update  Gauge.gc 2 $val
  46. update  Gauge.gc 3 $val
  47. update  Gauge.gc 4 $val
  48. update  Gauge.gc 5 $val
  49. update  Gauge.gc 6 $val
  50.  
  51.